home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gigantic Games 2
/
Gigantic Games 2.iso
/
pc
/
_a_
/
abitur
/
txt
/
randomnoten.mod
< prev
next >
Wrap
Text File
|
1994-12-23
|
717b
|
31 lines
IMPLEMENTATION MODULE RandomNoten;
FROM Intuition IMPORT CurrentTime;
FROM RandomNumber IMPORT PutSeed, RND;
FROM SYSTEM IMPORT ADR, CAST;
VAR Secs, Micros: LONGCARD;
Seed: LONGINT;
PROCEDURE RNDNote(): REAL;
(* Liefert eine Note von 1.0 1.5 2.0 ... 5.5 6.0 *)
VAR Zahl: INTEGER;
BEGIN
Zahl := RND(11);
RETURN FLOAT(Zahl) / 2.0 + 1.0
END RNDNote;
VAR Ps: INTEGER; (* Somit kommt bei schnellem Hintereinander
* ausführen nicht immer die selbe erste Zahl.
*)
BEGIN (* Initialisiere Random Zahlen *)
CurrentTime(ADR(Secs), ADR(Micros));
Seed := CAST(LONGINT, Secs);
IF Seed < 0 THEN Seed := -Seed END;
PutSeed(Seed);
Ps := RND(11);
END RandomNoten.